diff options
| author | Joris | 2018-06-17 23:24:47 +0200 |
|---|---|---|
| committer | Joris | 2018-06-18 11:13:55 +0200 |
| commit | 0a4d3c8f12dc5797a919a00b6bcaf759947687cc (patch) | |
| tree | bcb89781e22c2314bf0c064ebb37cb7f8a362f5c /src/Utils | |
| parent | e2a5c7c5c596d057b6fa9c08a8204ce1429cfdc4 (diff) | |
Add ouest france parser
Diffstat (limited to 'src/Utils')
| -rw-r--r-- | src/Utils/Either.hs | 7 | ||||
| -rw-r--r-- | src/Utils/Text.hs | 13 |
2 files changed, 0 insertions, 20 deletions
diff --git a/src/Utils/Either.hs b/src/Utils/Either.hs deleted file mode 100644 index 5d62dcc..0000000 --- a/src/Utils/Either.hs +++ /dev/null @@ -1,7 +0,0 @@ -module Utils.Either - ( mapLeft - ) where - -mapLeft :: (a -> c) -> Either a b -> Either c b -mapLeft f (Left l) = Left (f l) -mapLeft _ (Right r) = (Right r) diff --git a/src/Utils/Text.hs b/src/Utils/Text.hs deleted file mode 100644 index 1297bbd..0000000 --- a/src/Utils/Text.hs +++ /dev/null @@ -1,13 +0,0 @@ -module Utils.Text - ( startsWith - ) where - -import Data.Text (Text) -import qualified Data.Text as T - -startsWith :: Text -> Text -> Bool -startsWith mbStart text = - case (T.uncons mbStart, T.uncons text) of - (Just (x, xs), Just (y, ys)) -> x == y && startsWith xs ys - (Nothing, _) -> True - _ -> False |