File: notes.txt

package info (click to toggle)
missingh 0.10.7.sarge.2
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 1,240 kB
  • ctags: 12
  • sloc: haskell: 9,729; makefile: 148
file content (5 lines) | stat: -rw-r--r-- 140 bytes parent folder | download 
1
2
3
4
5
 
 basename p = reverse $ takeWhile (/= '/') $ reverse p

 dirname p  = case reverse $ dropWhile (/= '/') $ reverse p of
 [] -> "."
 p' -> p'