Не в области видимости: 'грабеж' (я не использую Lens)

Question

У меня есть ошибка в этом коде в Привязать Haskell приложения:

import Snap.Http.Server 
import Snap.Core 
import Snap.Snaplet 
import Snap.Snaplet.Heist 
import Snap.Util.FileServe 
import Snap.Util.GZip 
import Heist.Interpreted 
import Heist 

data App = App { appHeist :: Snaplet (Heist App) } 

routes :: [(ByteString, Handler App App())] 
routes = [("", serveDirectory "static")] 

appInit :: SnapletInit App App 
appInit = makeSnaplet "app" "An snaplet example application." Nothing $ do 
    h <- nestSnaplet "" heist $ heistInit "templates" 
    addRoutes routes 
    return $ App h 

Ошибка является:

Not in scope: ‘heist’ 

и I не может найти в каком пакете функцию «heist».

Обратите внимание, что я не использую объектив и не хочу. Есть ли способ не использовать их и скомпилировать мой код?

Answer 1

Я не знаком с Snap, но, судя по типу подписи nestSnaplet, похоже, вам понадобится использовать какой-то объектив. nestSnaplet имеет сигнатуру

nestSnaplet :: ByteString -> SnapletLens v v1 -> SnapletInit b v1-> Initializer b v (Snaplet v1) 

где SnapletLens просто тип синоним для Alens из lens.

Это также заставляет меня подозревать, что heist был изначально полученной функцией Шаблон Haskell, выполненной с использованием lens. Возможно, что произошло то, что App используется выглядеть следующим образом:

-- You may need to import Contol.Lens.TH 
data App = App { _heist :: Snaplet (Heist App) } 
makeLenses ''App 

, который сделал бы heist объектив.