Skip to content

Instantly share code, notes, and snippets.

Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save MagnificentPako/530131f138629ea01e39d0338bd3b657 to your computer and use it in GitHub Desktop.
Save MagnificentPako/530131f138629ea01e39d0338bd3b657 to your computer and use it in GitHub Desktop.
src/App.hs:61:18: error:
• Couldn't match type ‘[]’
with ‘Web.Scotty.Internal.Types.ActionT T.Text IO’
Expected type: Web.Scotty.Internal.Types.ActionT T.Text IO [String]
Actual type: [[String]]
• In a stmt of a 'do' block:
names <- mapM
(\ h
-> do n <- liftIO $ Data.Cache.lookup cache h
name <- case n of
Just name -> return name
Nothing -> ...
return name)
pins
In the second argument of ‘($)’, namely
‘do pinLsResp <- liftIO $ runPinLs manager
req <- request
let cache = ...
pins = ...
names <- mapM
(\ h
-> do n <- liftIO $ Data.Cache.lookup cache h
....)
pins
....’
In a stmt of a 'do' block:
get "/pins"
$ do pinLsResp <- liftIO $ runPinLs manager
req <- request
let cache = ...
pins = ...
names <- mapM
(\ h
-> do n <- liftIO $ Data.Cache.lookup cache h
....)
pins
....
|
61 | names <- mapM (\h -> do
| ^^^^^^^^^^^^^^...
src/App.hs:68:21: error:
• Couldn't match type ‘Char’ with ‘[Char]’
Expected type: [String]
Actual type: String
• In a stmt of a 'do' block: nameFromLs lsRoot
In the expression:
do lsRoot <- liftIO $ runLs manager h
liftIO $ insert cache h (nameFromLs lsRoot)
nameFromLs lsRoot
In a case alternative:
Nothing
-> do lsRoot <- liftIO $ runLs manager h
liftIO $ insert cache h (nameFromLs lsRoot)
nameFromLs lsRoot
|
68 | nameFromLs lsRoot
| ^^^^^^^^^^^^^^^^^
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment