Skip to content

Instantly share code, notes, and snippets.

@norm2782
Created August 16, 2011 10:15
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 norm2782/1148785 to your computer and use it in GitHub Desktop.
Save norm2782/1148785 to your computer and use it in GitHub Desktop.
-- Code:
data HdbcSnaplet = forall conn. IConnection conn => HdbcSnaplet {
_iConn :: conn
}
makeLens ''HdbcSnaplet
{-
Error:
[7 of 7] Compiling Snap.Snaplet.Hdbc ( src/Snap/Snaplet/Hdbc.hs, interpreted )
src/Snap/Snaplet/Hdbc.hs:1:1: Splicing declarations
makeLens 'HdbcSnaplet
======>
src/Snap/Snaplet/Hdbc.hs:27:1-22
Snap.Snaplet.Hdbc.iConn ::
Data.Lens.Common.Lens HdbcSnaplet conn[a879]
Snap.Snaplet.Hdbc.iConn
= Data.Lens.Common.lens
_iConn (\ x[a87l] s[a87m] -> s[a87m] {_iConn = x[a87l]})
src/Snap/Snaplet/Hdbc.hs:27:1:
Not in scope: type variable `conn[a879]'
-}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment