Data commit

Task/Optional-parameters/Haskell/optional-parameters-1.hs

@@ -0,0 +1,15 @@
+{-# LANGUAGE RecordWildCards #-}
+
+data SorterArgs = SorterArgs { cmp :: String, col :: Int, rev :: Bool } deriving Show
+defSortArgs = SorterArgs "lex" 0 False
+
+
+sorter :: SorterArgs -> [[String]] -> [[String]]
+sorter (SorterArgs{..}) = case cmp of
+                            _ -> undefined
+
+main = do
+    sorter defSortArgs{cmp = "foo", col=1, rev=True} [[]]
+    sorter defSortArgs{cmp = "foo"} [[]]
+    sorter defSortArgs [[]]
+    return ()

Task/Optional-parameters/Haskell/optional-parameters-2.hs

@@ -0,0 +1,12 @@
+import Data.Maybe (fromMaybe)
+-- Use fromMaybe as an operator because its prettier
+(//) = flip fromMaybe
+
+sorter :: Maybe String -> Maybe Int -> Maybe Bool -> [[String]] -> [[String]]
+sorter ((// "lex") -> cmp)
+       ((// 0) -> col)
+       ((// False) -> rev) = undefined
+
+main = do
+    sorter (Just "foo") (Just 1) (Just True)
+    sorter Nothing Nothing Nothing