37c84d6 · obelisk · git.iko.soy

git.iko.soy/obelisk

on master help sign in

Fix warnings in executable-config

37c84d6Ali Abrar7 years ago

lib/executable-config/lookup/src-android/Obelisk/ExecutableConfig/Lookup.hs+1

@@ -4,6 +4,7 @@ module Obelisk.ExecutableConfig.Lookup where

5import Control.Exception (bracket)

6import Control.Monad (forM)

7+import Data.ByteString (ByteString)

7import qualified Data.ByteString as BS

8import qualified Data.ByteString as BS

8import Data.Map (Map)

9import Data.Map (Map)

9import qualified Data.Map as Map

10import qualified Data.Map as Map

lib/executable-config/lookup/src-ghcjs/Obelisk/ExecutableConfig/Lookup.hs+1−2

@@ -8,7 +8,6 @@ import Data.Map (Map)

8import qualified Data.Map as Map

9import Data.Maybe (catMaybes)

10import Data.Text (Text)

11−import qualified Data.Text as T

12import qualified Data.Text.Encoding as T

11import qualified Data.Text.Encoding as T

13import Data.Traversable (for)

12import Data.Traversable (for)

14import GHCJS.DOM

13import GHCJS.DOM

@@ -40,4 +39,4 @@ getConfigs = do

40 pure $ catMaybes list

39 pure $ catMaybes list

41 decodeOrFail x = case B64.decode (T.encodeUtf8 x) of

40 decodeOrFail x = case B64.decode (T.encodeUtf8 x) of

42 Left e -> error ("Obelisk.ExecutableConfig.Lookup.getConfigs: error when decoding base64: " ++ e)

41 Left e -> error ("Obelisk.ExecutableConfig.Lookup.getConfigs: error when decoding base64: " ++ e)

43− Right x -> x

42+ Right x' -> x'