getDownloadCurrentR      :: RealmId -> Path -> APIHandler TypedContent
getDownloadCurrentR ri p = do
                             mr <- lift . queryAcid $ Access ri p
                             case (^.nodeData.headVersionLens.fileKind) <$> mr of
                               Nothing  -> notFound
                               Just fk  -> getDownloadR ri fk p





--------------------------------------------------------------------------------
getDownloadCurrentR      :: RealmId -> Path -> APIHandler TypedContent
getDownloadCurrentR ri p = do
                             mr <- lift . queryAcid $ Access ri p
                             case (^.nodeData.headVersionLens.fileKind) <$> mr of
                               Nothing  -> notFound
                               Just fk  -> getDownloadR ri fk p





--------------------------------------------------------------------------------
getDownloadCurrentR ri p = do
                             mr <- lift . queryAcid $ Access ri p
                             case (^.nodeData.headVersionLens.fileKind) <$> mr of
                               Nothing  -> notFound
                               Just fk  -> getDownloadR ri fk p





--------------------------------------------------------------------------------