fix build

This commit is contained in:
Joey Hess 2013-05-12 19:13:38 -04:00
parent 03e8594369
commit 92910f5107
2 changed files with 2 additions and 0 deletions

View file

@ -26,6 +26,7 @@ import Types.StandardGroups
import System.IO.HVFS (SystemFS(..))
import qualified Data.Text as T
import qualified Data.Map as M
import System.Path
notCurrentRepo :: UUID -> Handler RepHtml -> Handler RepHtml
notCurrentRepo uuid a = go =<< liftAnnex (Remote.remoteFromUUID uuid)

View file

@ -16,6 +16,7 @@ import Control.Exception.Extensible
import qualified Data.Map as M
import System.IO.HVFS (SystemFS(..))
import qualified Text.JSON
import System.Path
import Common