Permalink
Browse files

Using overloaded strings

  • Loading branch information...
1 parent b7a6df2 commit 08ce1aba4c3929d7ca6bf77dfbceded54af76927 Zach Moazeni committed Apr 8, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Web.hs
View
@@ -22,7 +22,7 @@ run port (gramDB, stageDB) = scotty (read port) $ do
get "/search" $ do
query <- param "q"
- fields <- liftM toFields $ param "f" `rescue` (\_ -> return (pack ""))
+ fields <- liftM toFields $ param "f" `rescue` (\_ -> return "")
results <- liftIO $ search gramDB query fields
text . decodeUtf8 . encode $ results
header "Content-Type" "application/json"

0 comments on commit 08ce1ab

Please sign in to comment.