gistfile1.txt

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 [Char]
        Actual type: [[Char]]
    • In a stmt of a 'do' block:
        names <- mapM
                   (\ h
                      -> do n <- liftIO $ Data.Cache.lookup cache h
                            name <- case n of
                                      Just name -> 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
   |                  ^^^^^^^^^^^^^^...