Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: redesign
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 9 lines (7 sloc) 0.227 kb
1 2 3 4 5 6 7 8 9
module Paths where

import Types
import Text.Printf(printf)

pathOnDirection :: Paths -> Direction -> Maybe Path
pathOnDirection ps dir = case filter (\x -> pathDirection x == dir) ps of
[] -> Nothing
(x:xs) -> Just x
Something went wrong with that request. Please try again.